home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / misc / avmNfax1_33.lha / AVMSuite / source / playnumber.avmsrc < prev    next >
Text File  |  1994-06-24  |  6KB  |  303 lines
  1. startrecord=true
  2. label=playnumber
  3. nodetype=14
  4. comment=Cycle through value and play each symbol
  5. nextactiontype=3
  6. nextactionaction=
  7. endrecord=true
  8. startrecord=true
  9. label=
  10. nodetype=8
  11. line1=procedure
  12. line2=parse arg number
  13. line3=say 'playnumber' number
  14. line4=
  15. line5=
  16. line6=
  17. line7=
  18. line8=
  19. line9=
  20. line10=
  21. nextactiontype=3
  22. nextactionaction=
  23. endrecord=true
  24. startrecord=true
  25. label=
  26. nodetype=8
  27. line1=do i = 1 to length(number)
  28. line2=  if pos(substr(number, i, 1), '0123456789') > 0 then
  29. line3=    call playnumbranch('playnum' || substr(number, i, 1))
  30. line4=  else if substr(number, i, 1) = '#' then
  31. line5=    call playnumbranch('playnumpound')
  32. line6=  else if substr(number, i, 1) = '*' then
  33. line7=    call playnumbranch('playnumstar')
  34. line8=end
  35. line9=
  36. line10=
  37. nextactiontype=0
  38. nextactionaction=playnumdone
  39. endrecord=true
  40. startrecord=true
  41. label=playnumbranch
  42. nodetype=8
  43. line1=procedure
  44. line2=parse arg label
  45. line3=signal value label
  46. line4=
  47. line5=
  48. line6=
  49. line7=
  50. line8=
  51. line9=
  52. line10=
  53. nextactiontype=2
  54. nextactionaction=return
  55. endrecord=true
  56. startrecord=true
  57. label=playnum0
  58. nodetype=1
  59. filename='avm:voices/number00'
  60. comment=Zero
  61. keyactiontype=3
  62. keyactionaction=
  63. faxactiontype=0
  64. faxactionaction=stdfax
  65. dataactiontype=0
  66. dataactionaction=stddata
  67. busyactiontype=0
  68. busyactionaction=stdbusy
  69. abortactiontype=0
  70. abortactionaction=stdabort
  71. erroractiontype=0
  72. erroractionaction=stderror
  73. nextactiontype=2
  74. nextactionaction=return
  75. endrecord=true
  76. startrecord=true
  77. label=playnum1
  78. nodetype=1
  79. filename='avm:voices/number01'
  80. comment=one
  81. keyactiontype=3
  82. keyactionaction=
  83. faxactiontype=0
  84. faxactionaction=stdfax
  85. dataactiontype=0
  86. dataactionaction=stddata
  87. busyactiontype=0
  88. busyactionaction=stdbusy
  89. abortactiontype=0
  90. abortactionaction=stdabort
  91. erroractiontype=0
  92. erroractionaction=stderror
  93. nextactiontype=2
  94. nextactionaction=return
  95. endrecord=true
  96. startrecord=true
  97. label=playnum2
  98. nodetype=1
  99. filename='avm:voices/number02'
  100. comment=two
  101. keyactiontype=3
  102. keyactionaction=
  103. faxactiontype=0
  104. faxactionaction=stdfax
  105. dataactiontype=0
  106. dataactionaction=stddata
  107. busyactiontype=0
  108. busyactionaction=stdbusy
  109. abortactiontype=0
  110. abortactionaction=stdabort
  111. erroractiontype=0
  112. erroractionaction=stderror
  113. nextactiontype=2
  114. nextactionaction=return
  115. endrecord=true
  116. startrecord=true
  117. label=playnum3
  118. nodetype=1
  119. filename='avm:voices/number03'
  120. comment=three
  121. keyactiontype=3
  122. keyactionaction=
  123. faxactiontype=0
  124. faxactionaction=stdfax
  125. dataactiontype=0
  126. dataactionaction=stddata
  127. busyactiontype=0
  128. busyactionaction=stdbusy
  129. abortactiontype=0
  130. abortactionaction=stdabort
  131. erroractiontype=0
  132. erroractionaction=stderror
  133. nextactiontype=2
  134. nextactionaction=return
  135. endrecord=true
  136. startrecord=true
  137. label=playnum4
  138. nodetype=1
  139. filename='avm:voices/number04'
  140. comment=four
  141. keyactiontype=3
  142. keyactionaction=
  143. faxactiontype=0
  144. faxactionaction=stdfax
  145. dataactiontype=0
  146. dataactionaction=stddata
  147. busyactiontype=0
  148. busyactionaction=stdbusy
  149. abortactiontype=0
  150. abortactionaction=stdabort
  151. erroractiontype=0
  152. erroractionaction=stderror
  153. nextactiontype=2
  154. nextactionaction=return
  155. endrecord=true
  156. startrecord=true
  157. label=playnum5
  158. nodetype=1
  159. filename='avm:voices/number05'
  160. comment=five
  161. keyactiontype=3
  162. keyactionaction=
  163. faxactiontype=0
  164. faxactionaction=stdfax
  165. dataactiontype=0
  166. dataactionaction=stddata
  167. busyactiontype=0
  168. busyactionaction=stdbusy
  169. abortactiontype=0
  170. abortactionaction=stdabort
  171. erroractiontype=0
  172. erroractionaction=stderror
  173. nextactiontype=2
  174. nextactionaction=return
  175. endrecord=true
  176. startrecord=true
  177. label=playnum6
  178. nodetype=1
  179. filename='avm:voices/number06'
  180. comment=six
  181. keyactiontype=3
  182. keyactionaction=
  183. faxactiontype=0
  184. faxactionaction=stdfax
  185. dataactiontype=0
  186. dataactionaction=stddata
  187. busyactiontype=0
  188. busyactionaction=stdbusy
  189. abortactiontype=0
  190. abortactionaction=stdabort
  191. erroractiontype=0
  192. erroractionaction=stderror
  193. nextactiontype=2
  194. nextactionaction=return
  195. endrecord=true
  196. startrecord=true
  197. label=playnum7
  198. nodetype=1
  199. filename='avm:voices/number07'
  200. comment=seven
  201. keyactiontype=3
  202. keyactionaction=
  203. faxactiontype=0
  204. faxactionaction=stdfax
  205. dataactiontype=0
  206. dataactionaction=stddata
  207. busyactiontype=0
  208. busyactionaction=stdbusy
  209. abortactiontype=0
  210. abortactionaction=stdabort
  211. erroractiontype=0
  212. erroractionaction=stderror
  213. nextactiontype=2
  214. nextactionaction=return
  215. endrecord=true
  216. startrecord=true
  217. label=playnum8
  218. nodetype=1
  219. filename='avm:voices/number08'
  220. comment=eight
  221. keyactiontype=3
  222. keyactionaction=
  223. faxactiontype=0
  224. faxactionaction=stdfax
  225. dataactiontype=0
  226. dataactionaction=stddata
  227. busyactiontype=0
  228. busyactionaction=stdbusy
  229. abortactiontype=0
  230. abortactionaction=stdabort
  231. erroractiontype=0
  232. erroractionaction=stderror
  233. nextactiontype=2
  234. nextactionaction=return
  235. endrecord=true
  236. startrecord=true
  237. label=playnum9
  238. nodetype=1
  239. filename='avm:voices/number09'
  240. comment=nine
  241. keyactiontype=3
  242. keyactionaction=
  243. faxactiontype=0
  244. faxactionaction=stdfax
  245. dataactiontype=0
  246. dataactionaction=stddata
  247. busyactiontype=0
  248. busyactionaction=stdbusy
  249. abortactiontype=0
  250. abortactionaction=stdabort
  251. erroractiontype=0
  252. erroractionaction=stderror
  253. nextactiontype=2
  254. nextactionaction=return
  255. endrecord=true
  256. startrecord=true
  257. label=playnumpound
  258. nodetype=1
  259. filename='avm:voices/numberpound'
  260. comment=pound/cross-hatch/number-sign
  261. keyactiontype=3
  262. keyactionaction=
  263. faxactiontype=0
  264. faxactionaction=stdfax
  265. dataactiontype=0
  266. dataactionaction=stddata
  267. busyactiontype=0
  268. busyactionaction=stdbusy
  269. abortactiontype=0
  270. abortactionaction=stdabort
  271. erroractiontype=0
  272. erroractionaction=stderror
  273. nextactiontype=2
  274. nextactionaction=return
  275. endrecord=true
  276. startrecord=true
  277. label=playnumstar
  278. nodetype=1
  279. filename='avm:voices/numberstar'
  280. comment=star/asterisk
  281. keyactiontype=3
  282. keyactionaction=
  283. faxactiontype=0
  284. faxactionaction=stdfax
  285. dataactiontype=0
  286. dataactionaction=stddata
  287. busyactiontype=0
  288. busyactionaction=stdbusy
  289. abortactiontype=0
  290. abortactionaction=stdabort
  291. erroractiontype=0
  292. erroractionaction=stderror
  293. nextactiontype=2
  294. nextactionaction=return
  295. endrecord=true
  296. startrecord=true
  297. label=playnumdone
  298. nodetype=14
  299. comment=We're done
  300. nextactiontype=2
  301. nextactionaction=return
  302. endrecord=true
  303.